home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpC_1015_ScrollBar < prev    next >
Encoding:
Text File  |  1992-04-08  |  1.4 KB  |  62 lines
  1. %case window field%
  2.     %if not mainScroll%
  3.         ControlHandle        %HandleName%;
  4.     %end if%
  5. %case create%
  6.     %if not mainScroll%
  7.         cur->%HandleName% = GetNewControl (%cntlID%, newWindow);    
  8.         %Enable?%
  9.     %end if%
  10. %case activate%
  11.     %if not mainScroll%
  12.         EnableControl (cur->%HandleName%, activate);
  13.     %end if%
  14. %case track%
  15.     %if not mainScroll%
  16.         if (whichControl == cur->%HandleName%) {
  17.             TrackScroll (cur->%HandleName%, whichPart, where, nil);
  18.         }
  19.     %end if%
  20. %case itemNr%
  21.     %DefineItem%
  22. %case dialog field%
  23.     short            %fieldname%;
  24.     %Enable?%
  25.     %haveField%
  26. %case init field%
  27.     info->%fieldname% = 1;
  28.     %Enable?%
  29. %case auxiliaryProto%
  30.     static pascal void %itemname%Action%    %(short        newValue,
  31.                                              short        oldValue);
  32. %case auxiliary%
  33.     %needsFilter%
  34.     /*----------*/
  35.     static pascal void %itemname%Action%    %(short        newValue,
  36.                                              short        oldValue)
  37.     {
  38.     %if lang = MPW%
  39.         #pragma unused (newValue, oldValue) 
  40.       
  41.     %endif%
  42.     } /*%itemname%Action*/
  43.     
  44. %case filter%
  45.     if (!filtered) {
  46.         filtered = FilterScroll (event, %itemname%,
  47.                                 (ScrollProcPtr) &%itemname%Action, itemHit);
  48.     }
  49. %case filterModal%
  50.     if (!filtered) {
  51.         filtered = FilterScroll (event, %itemname%,
  52.                                 (ScrollProcPtr) &%itemname%Action, itemHit);
  53.     }
  54. %case set%
  55.     SetScrollItem (%itemname%, info->%fieldname%, 1, 100, 10);
  56. %case enable%
  57.     %Enable?%
  58. %case hit%
  59.     case %itemname%:
  60.             DoScrollItem (itemNr, &info->%fieldname%);
  61.         break;
  62.